theme_bw1 <- function(base_size=11, base_family="") {
  theme_bw(base_size=base_size, base_family=base_family) %+replace%
    theme(
      axis.text.x=element_text(size=base_size, colour="black", hjust=.5, vjust=1),
      axis.text.y=element_text(size=base_size, colour="black", hjust=0, vjust=.5), 
      axis.ticks=element_line(colour="grey50"),
      axis.title.y=element_text(size=base_size, angle=90, vjust=.01, hjust=.1),
      legend.position="bottom"
    )
}

theme_bw2 <- function(base_size=13, base_family="") {
  theme_bw(base_size=base_size, base_family=base_family) %+replace%
    theme(
      axis.text.x=element_text(size=base_size, colour="black", hjust=.5, vjust=1),
      axis.text.y=element_text(size=base_size, colour="black", hjust=0, vjust=.5), 
      axis.ticks=element_line(colour="grey50"),
      axis.title.y=element_text(size=base_size, angle=90, vjust=.01, hjust=.1),
      legend.position="bottom"
    )
}
